program Project1; // Zadanie 3.24

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 znak : char;

begin
 Writeln('Program wyswietla duze litery alfabetu od A do Z i od Z do A.');
 Writeln;
 znak := 'A';
 Write(znak, ', ');

 while znak < 'Z' do
  begin
   znak := succ(znak);
   if znak < 'Z' then
     Write(znak, ', ')
   else
     Write(znak, '.');
  end;

 Writeln;

 znak := 'Z';
 Write(znak, ', ');

 while znak > 'A' do
  begin
   znak := pred(znak);
   if znak >= 'B' then
     Write(znak, ', ')
   else
     Write(znak, '.');
  end;

 Readln; // czeka na nacisniecie klawisza Enter
end.
